home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Agamik BarCoding / Agamik BarCoder Demo 3.03 / Agamik BarCoder Demo 3.03.rsrc / STR#_4012.txt < prev    next >
Text File  |  1998-05-23  |  6KB  |  401 lines
  1. 0 2 _d length 2 sub { /_x exch def
  2.  
  3. 0 1 _dd length 1 sub { /_d exch _dd exch get def
  4.  
  5. /_da _dl array def
  6.  
  7. /_dp 0 def
  8.  
  9. /_dl 4 def
  10.  
  11. /_y 0 def
  12.  
  13. /_n exch def
  14.  
  15. /_llx exch def
  16.  
  17. /_lly exch def
  18.  
  19. /_urx exch def
  20.  
  21. /_ury exch def
  22.  
  23. /_dd exch def
  24.  
  25. { exit } ifelse } loop array astore } if
  26.  
  27. { 0 { dup 1 add index type /arraytype eq { 1 add }
  28.  
  29. /E { _ed begin dup 0 get type /arraytype ne
  30.  
  31. /_dp _dp 1 add def } ifelse } def
  32.  
  33. _dp _dl mod _da 0 get 4 get 2 packedarray
  34.  
  35. 7 packedarray _da exch _dp _dl mod exch put
  36.  
  37. { _dp 0 ne _dp _dl mod 0 eq and { null dp } if
  38.  
  39. definepattern pop } if }
  40.  
  41. _da 0 get aload pop 8 -1 roll 5 -1 roll pop 4 1 roll
  42.  
  43. _dp 1 sub _dl mod 1 add packedarray 
  44.  
  45. { 0 1 _dp 1 sub _dl mod { _da exch get 3 get } for
  46.  
  47. /dp { dup null eq { pop _dp 0 ne
  48.  
  49. /_lp /none ddef } def
  50.  
  51. /_pss { _sc ss } ddef
  52.  
  53. /_ps { _sc stroke } ddef
  54.  
  55. _is _gs 1 exch sub setcustomcolor /_lp /stroke ddef } if } ddef
  56.  
  57. /_sc { _lp /stroke ne { _os setoverprint
  58.  
  59. /X { /_gs exch ddef findcmykcustomcolor /_is exch ddef
  60.  
  61. /_psf { _fc exch pop ashow } ddef /_lp /none ddef } def
  62.  
  63. /_pf { _fc fill } ddef
  64.  
  65. _if _gf 1 exch sub setcustomcolor /_lp /fill ddef } if } ddef
  66.  
  67. /_fc { _lp /fill ne { _of setoverprint
  68.  
  69. /x { /_gf exch ddef findcmykcustomcolor /_if exch ddef
  70.  
  71. /_lp /none ddef } def
  72.  
  73. /_pss { _sc ss } ddef
  74.  
  75. /_ps { _sc stroke } ddef
  76.  
  77. _os setoverprint _cs aload pop setcmykcolor /_lp /stroke ddef } if } ddef
  78.  
  79. /K { _cs astore pop /_sc { _lp /stroke ne {
  80.  
  81. /_lp /none ddef } def
  82.  
  83. /_psf { _fc exch pop ashow } ddef
  84.  
  85. /_pf { _fc fill } ddef
  86.  
  87. { _of setoverprint _cf aload pop setcmykcolor /_lp /fill ddef } if } ddef
  88.  
  89. /k { _cf astore pop /_fc { _lp /fill ne
  90.  
  91. /_pss { _sc ss } ddef /_lp /none ddef } def
  92.  
  93. /_ps { _sc stroke } ddef
  94.  
  95. _os setoverprint _gs setgray /_lp /stroke ddef } if } ddef
  96.  
  97. /G { /_gs exch ddef /_sc { _lp /stroke ne {
  98.  
  99. /_lp /none ddef } def
  100.  
  101. /_psf { _fc exch pop ashow } ddef
  102.  
  103. /_pf { _fc fill } ddef
  104.  
  105. _of setoverprint _gf setgray /_lp /fill ddef } if } ddef
  106.  
  107. /g { /_gf exch ddef /_fc { _lp /fill ne {
  108.  
  109. /R { 0 ne /_os exch ddef /_lp /none ddef } def
  110.  
  111. /O { 0 ne /_of exch ddef /_lp /none ddef } def
  112.  
  113. /& {} def
  114.  
  115. /@ {} def
  116.  
  117. /~ { end _i restore } def
  118.  
  119. newpath 0 setgray false setoverprint pop } def
  120.  
  121. /setstrokeadjust where {pop false setstrokeadjust} if
  122.  
  123. [] 0 setdash
  124.  
  125. 10 setmiterlimit
  126.  
  127. 0 setlinejoin
  128.  
  129. 1 setlinewidth
  130.  
  131. 0 setlinecap
  132.  
  133. 0 setgray
  134.  
  135. /showpage {} def
  136.  
  137. userdict begin
  138.  
  139. /` { /_i save ddef 6 1 roll 4 npop concat
  140.  
  141. /Q { grestore } def
  142.  
  143. /q { gsave } def
  144.  
  145. /U {} def
  146.  
  147. /u {} def
  148.  
  149. } def
  150.  
  151. /FontName get exch definefont pop
  152.  
  153. currentdict dup end end
  154.  
  155. { exch pop } ifelse } forall } if pop
  156.  
  157. { Encoding 2 index 2 index put pop 1 add }
  158.  
  159. 0 exch { dup type /nametype eq
  160.  
  161. /Encoding Encoding 256 array copy def
  162.  
  163. /FontName exch def dup length 0 ne {
  164.  
  165. { 1 index /FID ne { def } { 2 npop } ifelse } forall
  166.  
  167. /Z { pop findfont begin currentdict dup length 1 add dict begin
  168.  
  169. /T { _tm setmatrix } def
  170.  
  171. /a { tm /t { 2 copy ta _psf newpath ta _tm _pss tl newpath } ddef } def
  172.  
  173. /r { tm /t { ta _tm _pss tl newpath } ddef } def
  174.  
  175. /e { tm /t { ta _psf tl newpath } ddef } def
  176.  
  177. /o { tm /t { ta 4 npop tl newpath } ddef } def
  178.  
  179. /I { tm /t { ta sp tl } ddef } def
  180.  
  181. /tm { _tm currentmatrix pop concat } def
  182.  
  183. exch findfont exch scalefont setfont } def
  184.  
  185. { 0 exch neg _tt astore pop neg 0 _tl astore pop } ifelse
  186.  
  187. 0 _tt astore pop 0 exch neg _tl astore pop }
  188.  
  189. /z { /_a exch ddef /_as as _a get ddef _a 2 le {
  190.  
  191. { 0 0 } } cvlit def
  192.  
  193. { 2 copy _tt aload pop 4 -2 roll sw exch neg exch neg }
  194.  
  195. 2 copy _tt aload pop 4 -2 roll sw exch neg 2 div exch neg 2 div }
  196.  
  197. /as { { 0 0 } {
  198.  
  199. /tl { _tl aload pop translate } def
  200.  
  201. /ta { _as moveto _tt aload pop 4 -2 roll } def
  202.  
  203. /W { clip } def
  204.  
  205. /b { closepath B } def
  206.  
  207. /B { gsave F grestore S } def
  208.  
  209. /s { closepath S } def
  210.  
  211. /S { _ps } def
  212.  
  213. /f { closepath F } def
  214.  
  215. /F { _pf } def
  216.  
  217. /n /N load def
  218.  
  219. /N { newpath } def
  220.  
  221. /h { closepath } def
  222.  
  223. /H {} def
  224.  
  225. /w { setlinewidth } def
  226.  
  227. /M { setmiterlimit } def
  228.  
  229. /J { setlinecap } def
  230.  
  231. /j { setlinejoin } def
  232.  
  233. /i { dup 0 eq { pop cf } if setflat } def
  234.  
  235. /cf currentflat def
  236.  
  237. /d { setdash } def
  238.  
  239. } ifelse
  240.  
  241. /m { pl moveto } def
  242.  
  243. /L /l load def
  244.  
  245. /l { pl lineto } def
  246.  
  247. /Y /y load def
  248.  
  249. /y { pl 2 copy curveto } def
  250.  
  251. /V /v load def
  252.  
  253. /v { currentpoint 6 2 roll pl curveto } def
  254.  
  255. /C /c load def
  256.  
  257. { /c { pl curveto } def
  258.  
  259. /m { moveto } def }
  260.  
  261. /L /l load def
  262.  
  263. /l { lineto } def
  264.  
  265. /Y /y load def
  266.  
  267. /y { 2 copy curveto } def
  268.  
  269. /V /v load def
  270.  
  271. /v { currentpoint 6 2 roll curveto } def
  272.  
  273. /C /c load def
  274.  
  275. /c { curveto } def
  276.  
  277. pop true setstrokeadjust
  278.  
  279. /setstrokeadjust where {
  280.  
  281. 0.25 sub round 0.25 add exch itransform } def
  282.  
  283. /pl { transform 0.25 sub round 0.25 add exch
  284.  
  285. false charpath 2 copy rmoveto } exch cshow 2 npop } def
  286.  
  287. /sp { exch pop { 2 npop (0) exch 2 copy 0 exch put pop
  288.  
  289. 2 copy rmoveto } exch cshow 3 npop } def
  290.  
  291. currentpoint 4 index setmatrix stroke grestore moveto
  292.  
  293. 2 npop (0) exch 2 copy 0 exch put pop gsave false charpath
  294.  
  295. /ss { 3 -1 roll pop 4 1 roll {
  296.  
  297. 4 1 roll 3 1 roll 1 sub mul add } def
  298.  
  299. /sw { stringwidth exch 5 -1 roll 3 index 1 sub mul add
  300.  
  301. /npop { { pop } repeat } def
  302.  
  303. load begin def end } def
  304.  
  305. dup dup load dup length 2 mul dict copy def } if
  306.  
  307. /xput { dup load dup length exch maxlength eq {
  308.  
  309. /ddef { Agamik_Barcoder_vars 3 1 roll put } def
  310.  
  311. /_ null def
  312.  
  313. /terminate { end end } def
  314.  
  315. newpath } def
  316.  
  317. Agamik_Barcoder_vars begin
  318.  
  319. Agamik_Barcoder begin
  320.  
  321. end end end
  322.  
  323. { dup xcheck { bind } if pop pop } forall
  324.  
  325. Agamik_Barcoder dup /nc get begin
  326.  
  327. Agamik_Barcoder begin
  328.  
  329. /_i null def
  330.  
  331. /_sdd null def
  332.  
  333. /_sd null def
  334.  
  335. /_sm null def
  336.  
  337. /_fdd null def
  338.  
  339. /_fd null def
  340.  
  341. /_fm null def
  342.  
  343. /_pm matrix def
  344.  
  345. /_ed 15 dict def
  346.  
  347. /_pd 1 dict def
  348.  
  349. /_sc {} def
  350.  
  351. /_os false def
  352.  
  353. /_is null def
  354.  
  355. /_cs 4 array def
  356.  
  357. /_gs null def
  358.  
  359. /_fc {} def
  360.  
  361. /_of false def
  362.  
  363. /_if null def
  364.  
  365. /_cf 4 array def
  366.  
  367. /_gf null def
  368.  
  369. /t {} def
  370.  
  371. /_tm matrix def
  372.  
  373. /_tl 2 array def
  374.  
  375. /_tt 2 array def
  376.  
  377. /_as null def
  378.  
  379. /_a null def
  380.  
  381. /_pss {} def
  382.  
  383. /_psf {} def
  384.  
  385. /_ps {} def
  386.  
  387. /_pf {} def
  388.  
  389. /_lp /none def
  390.  
  391. userdict /Agamik_Barcoder_vars 31 dict dup begin put
  392.  
  393. /initialize {
  394.  
  395. userdict /Agamik_Barcoder 73 dict dup begin put
  396.  
  397. currentpacking true setpacking
  398.  
  399. %%BeginProcSet: Agamik_Barcoder 1.20 0
  400.  
  401.